Sub Transfert()
Dim ligne As Integer
Dim colonne As Byte
Dim cellule As Range
ligne = Worksheets("Feuil2").Range("A65536").End(xlUp).Row + 1
For Each cellule In Worksheets("Feuil1").Range("B11,G4,I5,G7,I58")
colonne = colonne + 1
Worksheets("Feuil2").Cells(ligne, colonne) = cellule
Next cellule
End Sub