Sub Inserer(Lg As Long)
With Feuil1 ' ici je met alors Feuil3
.Range("A" & Lg & ":G" & Lg).Insert
.Range("C" & Lg - 1).Copy .Range("C" & Lg)
.Range("D" & Lg - 1).Copy .Range("D" & Lg)
.Range("F" & Lg - 1).Copy .Range("F" & Lg)
End With
End Sub
Sub Tri20(Lg As Long)
Dim LgDeb As Long, LgFin As Long
LgDeb = IIf(Lg >= 11, Lg - 9, 2)
LgFin = Lg + 10
With Feuil1.Sort ' ici aussi Feuil3
.SortFields.Clear
.SortFields.Add Key:=Range("D" & LgDeb & ":D" & LgFin) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("C" & LgDeb & ":C" & LgFin) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("B" & LgDeb & ":B" & LgFin) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A" & LgDeb & ":G" & LgFin)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub