Sub Depart()
If Range("D5") = "" Then
MsgBox ("rien à faire")
Else
MacroX (NumeroPatient)
End If
Range("D4:D9,F4:F9,H4:H9,J4:J9,L4:L9,D12:D17,F12:F17,H12:H171,J12:J17,L12:L17").ClearContents
Range("D4").Select
End Sub
Sub MacroX(NumPat As Long)
Dim np As Workbook
Set np = Application.Workbooks.Open("D:\TRAME TOMO.xls", True)
np.Worksheets("plan Ttt").Range("B2") = ThisWorkbook.Worksheets("Feuil1").Range("B4").Offset(0, 2 * NumPat)
np.Worksheets("plan Ttt").Range("B1") = ThisWorkbook.Worksheets("Feuil1").Range("B5").Offset(0, 2 * NumPat)
np.Worksheets("plan Ttt").Range("D15") = ThisWorkbook.Worksheets("Feuil1").Range("B6").Offset(0, 2 * NumPat)
np.Worksheets("plan Ttt").Range("H15") = ThisWorkbook.Worksheets("Feuil1").Range("B7").Offset(0, 2 * NumPat)
np.Worksheets("plan Ttt").Range("F15") = ThisWorkbook.Worksheets("Feuil1").Range("B8").Offset(0, 2 * NumPat)
np.Worksheets("plan Ttt").Range("B27") = ThisWorkbook.Worksheets("Feuil1").Range("B9").Offset(0, 2 * NumPat)
ActiveWorkbook.SaveAs "D:\" & Range("B2").Value & "_" & Range("B1").Value & ".xls"
np.Close
End Sub