With Sheets("Patients")
Application.ScreenUpdating = False
x = Application.CountIf(.Range("A2:A1000000"), ">""") + 1
.Range(.Cells(2, 1), .Cells(x, 1)).Select
Selection.Copy
.Range("Tableau1[NONPrenom]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheets("Donnees").Select
End With
End Sub