Bonjour,
Eh bien il s'en n'ai passé des choses !
Sub Macro1()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
if ws.name = "Totale" or ws.name = "A" or ws.name = "B" or ws.name = "C" or ws.name = "D" then
Ws.Select Range("A1:AC200").Select
Ws.Sort.SortFields.Clear
Ws.Sort.SortFields.Add Key:=Range("b2:b200"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Ws.Sort
.SetRange Range("A1:AC200")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
end if
Next Ws
End Sub
Pour le tri, essai cela !
Ensuite pour le fichier je t'expliquais pour quand tu as rajouter la colonne A le programme ne marchait plus.
Dans le programme, il y a ceci :
Sheets(Feuille).Range("A65535").End(xlUp).Row
Ceci va chercher la dernière cellule rempli de la colonne.
Si tu ajoute simplement une colonne A sans la remplir, le programme ne traitera pas les lignes.
Pour être sur que cela fonctionne et qu'il n'y ai pas d'oublie, je l'ai mis pour la colonne "NOM". Mais tu peux très bien mettre un ID.
Quoi qu'il en soit cette colonne A doit pour avoir une valeur si la ligne est rempli.