Sub creerOnglets()
FinTab = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row 'nombre de lignes dans la feuille Sheet1
i = 1
While (2 * i) - 1 <= FinTab
Sheets.Add After:=Sheets(Sheets.Count) 'on ajoute une feuille
ActiveSheet.Name = "Groupe " & i 'que l'on nomme Groupe X
With Sheets("Sheet1") 'on copie colle deux lignes
.Range("A" & 2 * (i - 1) + 1).Resize(2, 14).Copy
ActiveSheet.Paste
i = i + 1
End With
Wend
End Sub