Bonjour,
Private Sub CommandButton1_Click()
Dim tamer As Integer
tamer = NATIXIS.Range("A100000").End(xlUp).Row + 1
NATIXIS.Cells(tamer, "A").Value = Menu.Range("D7").Value
NATIXIS.Cells(tamer, "B").Value = Menu.Range("D9").Value
NATIXIS.Cells(tamer, "D").Value = Menu.Range("D11").Value
NATIXIS.Cells(tamer, "E").Value = Menu.Range("D13").Value
NATIXIS.Cells(tamer, "G").Value = Menu.Range("G7").Value
NATIXIS.Cells(tamer, "H").Value = Menu.Range("G9").Value
NATIXIS.Cells(tamer, "I").Value = Menu.Range("G11").Value
NATIXIS.Cells(tamer, "C").Value = Menu.Range("G13").Value
Menu.Range("D7").Value = ""
Menu.Range("D9").Value = ""
Menu.Range("D11").Value = ""
Menu.Range("D13").Value = ""
Menu.Range("G7").Value = ""
Menu.Range("G9").Value = ""
Menu.Range("G11").Value = ""
Menu.Range("G13").Value = ""
MsgBox " Les Données ont été transférées", vbInformation, "Opération réussie"
End Sub