Option Explicit
Sub Valeur_copier_là_si()
If Sheets("Feuil2").Range("A3").Value = "" Then
Sheets("Feuil1").Range("Nom").Copy Destination:=Sheets("Feuil2").Range("A3")
Else
Sheets("Feuil1").Range("Nom").Copy Destination:=Sheets("Feuil2").Range("a65536").End(xlUp)(2)
End If
End Sub