Re : regroupe des familles
Bonsoir ZOULOUSEB, le forum
Je ne connais rien en VBA mais je me suis permis de modifier le code de BrunoM45 pour éviter ton soucis.
Fais ALt+F11 et accède au module 1 puis rajoutes le texte en gras.
Sub RegroupFamille()
Dim Cel As Range, DerLig As Integer, Lig As Integer, NewLig As Integer
Dim ColRue As Integer, ColPrenom As Integer
Dim VPrenom As String, VNom As String
Dim FResult As String
'
Sheets("Sheet3").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Sheet1").Select
Rows("1:1").Select
Selection.Copy
Sheets("Sheet3").Select
Rows("1:1").Select
ActiveSheet.Paste
' 1) Trier la liste des noms
Sheets("Sheet1").Activate