Sub prenoms()
'macro à utiliser juste pour tester SplitDataII
'permets de remplir la colonne I de prénoms
Dim i&, tp
tp = Array("Marc", "Alain", "Jacques", "Henri", "Armand", "Hélène", "Solange", "Eric", "France", "Isabelle")
For i = 2 To 189 Step 9
Cells(i, "I").Resize(UBound(tp)) = Application.Transpose(tp)
Next i
Range("I190:I194").FillDown
End Sub