Sub copie_ligne()
Dim dest As Range 'déclare la variable dest
'définit la variable dest
With Sheets("Feuil2")
If .Range("B10").Value = "" Then 'B10 si B10 est vide
Set dest = .Range("B10")
Else 'sinon la première cellule vide de la colonne B
Set dest = .Range("B65536").End(xlUp).Offset(1, 0)
End If
End With
'copie et colle les cellules A13 à E13 dans la colonne B de l'onglet "Feuil2"
[COLOR=blue]Sheets("Feuil1").Range("A13:E13").Copy
dest.PasteSpecial Paste:=xlValues
[/COLOR]End Sub