Bonjour,
je voudrais améliorer cette macro afin que les données du tableau "Amélie.xlsx" se transposent dans le fichier "grille de facturation".
a savoir, le mois de facturation, le nom du patient, la cotation matin, cotation midi, cotation soir, les passages marqués 1, les IFA marqués OUI.
Sub Onglet_Selon_Modele3()
Dim c As Range
Application.ScreenUpdating = False
Set c = Worksheets("Liste").Range("A1")
Do Until IsEmpty(c)
Worksheets("GRILLE DE FACTURATION").Copy After:=Worksheets(ThisWorkbook.Sheets.Count)
With Worksheets(ThisWorkbook.Sheets.Count)
.Name = c.Value
.Range("D3") = c.Value
.Range("F6") = c.Offset(0, 1).Value
.Range("F7") = c.Offset(0, 2).Value
.Range("F9") = c.Offset(0, 3).Value
End With
Set c = c.Offset(1, 0)
Loop
Application.ScreenUpdating = True
End Sub