Bonsoir
Je pense que tu veux renvoyer les données vers la feuille données du classeur patientx.xls :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/02/2005 par Sarramagnan Guillaume
'
Dim CelluleVide As Long
Dim ligne As Integer
'
Range("B3:H3").Select
Selection.Copy
Windows("patientx.xls").Activate
ligne = Workbooks("patientx.xls").Sheets("Données").Range("a65530").End(xlUp).Row + 1
Workbooks("patientx.xls").Sheets("Données").Select
Range("a" & ligne).Select
ActiveSheet.Paste
End Sub
Par contre, si je peux me permettre un conseil , lorsque tu travailles sur plusieurs fichiers, nommes bien tout : les workbooks, les sheets..
Salut
Hervé