Sub test()
'
Set sh = ActiveSheet
Application.ScreenUpdating = False
Application.Goto Worksheets("transfert").Cells(Rows.Count, "A").End(xlUp).Offset(1)
sh.Activate
With Sheets("transfert")
.Cells(Rows.Count, 1).End(xlUp)(2) = ActiveCell(1, 2).Value ' .Text
.Cells(Rows.Count, 2).End(xlUp)(2) = ActiveCell ' date RdV
.Cells(Rows.Count, 3).End(xlUp)(2) = Date ' date appel
.Cells(Rows.Count, 6).End(xlUp)(2) = ActiveCell(1, -8) ' nom prospect
If ActiveCell(1, -5) <> "" Then
.Cells(Rows.Count, 7).End(xlUp)(2) = ActiveCell(1, -5) ' tél prospect
Else
.Cells(Rows.Count, 7).End(xlUp)(2) = ActiveCell(1, -4)
End If
.Cells(Rows.Count, 8).End(xlUp)(2) = ActiveCell(1, -9) ' nom réseau
.Cells(Rows.Count, 9).End(xlUp)(2).Value = Sheets("SMS RdV").Range("b6") ' tél réseau
.Cells(Rows.Count, 10).End(xlUp)(2).Value = Sheets("SMS RdV").Range("g4") ' Prénom Com
.Cells(Rows.Count, 11).End(xlUp)(2).Value = Sheets("SMS RdV").Range("d4") ' tél Com
End With
End Sub