Sub sel()
Dim Rgnumform As Range
Set Rgnumform = Feuil5.Range("A3:Q" & Feuil5.Range("A65536").End(xlUp).Row)
If Feuil7.Range("A3") = "" Then
With Rgnumform
.Copy Feuil7.Range("A3")
End With
Feuil7.Select
Else
With Rgnumform
.Copy Feuil7.Range("A2").End(xlDown).Offset(1, 0)
End With
Feuil7.Select
End If
End Sub