Sub dat()
With Range("A1:A10000")
.FormulaR1C1 = "=""Nom ""&ROW()"
.Value = .Value
With .Offset(, 1)
.FormulaR1C1 = "=""Prenom""&ROW()"
.Value = .Value
End With
End With
End Sub
Je me suis sans doute mal exprimé; ce que je cherche c'est une database "martyre" avec des noms et prénoms sur lesquels je pourrai tester les fonctions de recherche et de tri de mon appli.