Sub toutImprimer()
Dim sht As Worksheet
Dim LastRow As Long, i As Long
Set sht = ThisWorkbook.Worksheets("Groupe")
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
With Worksheets("COIFFURE")
.Range("H23").Value = Application.VLookup(i, Sheets("Groupe").Range("A2:E22"), 5, False) 'CP
.Range("G25").Value = Application.VLookup(i, Sheets("Groupe").Range("A2:E22"), 2, False) 'Nom
.Range("I25").Value = Application.VLookup(i, Sheets("Groupe").Range("A2:E22"), 3, False) 'Prénom
.Range("G27").Value = Application.VLookup(i, Sheets("Groupe").Range("A2:E22"), 4, False) 'Fiche
End With
Worksheets("COIFFURE").PrintOut
Next i
End Sub