Sub Bouton15_Cliquer()
Dim c As Range, Dest As Variant
Dest = Array("B5", "C5", "C5", "D5")
NbColonnes = 4
Set c = Range("A" & [A65536].End(xlUp).Row).Resize(1, NbColonnes)
For t = 1 To NbColonnes
c.Cells(t).Copy Destination:=Workbooks("Exemple.xlsm").Sheets("Feuil2").Range(Dest(t - 1))
Next t
End Sub