Bonjour
Lol ! j'aurai juré que vous alliez revenir sur cette demande...
Bon faite ceci :
- Dans la macro Verifie, juste avant le END SUB mettez cette instruction --> CALL TRI
- Dans le module, mettez cette macro ci-dessous
Sub tri()
Dim dlgP As Integer
With Sheets("Planning")
dlgP = .Range("A" & .Rows.Count).End(xlUp).Row
With .Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A6:A" & dlgP), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A5:F" & dlgP)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Je procède par un tri afin de conserver les formules placées après la colonne F.
Si ok pour vous, on continue sur le reste
Cordialement