[Hervé]

bonjour

un code à essayer pour le transfert de tes cellules.

 
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

salut