Private Sub remplirsynthese(£nomfeuille As Variant, Vsearch As String)
Dim Plage As Range, cel As Range, AdrDeb As String
With Sheets(£nomfeuille)
'Ici Plage de recherche par chauffeurs (ComboChauffeurs)
Set Plage = .Range("A4:A" & .Range("a65536").End(xlUp).Row)
With Plage
' expression.Find(, After, LookIn, LookAt, , SearchDirection, MatchCase, MatchByte, SearchFormat
Set cel = .Find(What:=Vsearch, LookAt:=xlWhole, SearchOrder:=xlByColumns)
If Not cel Is Nothing Then
trouve = True
AdrDeb = cel.Address
Do
DerLiR = DerLiR + 1
[COLOR=sienna][B]ShtR.Cells(DerLiR, 1) = Format(£nomfeuille, "ddd dd mmm yy")[/B][/COLOR]
Sheets(£nomfeuille).Range("A" & cel.Row).Copy Destination:=ShtR.Cells(DerLiR, 2)
Sheets(£nomfeuille).Range("B" & cel.Row & ":L" & cel.Row).Copy Destination:=ShtR.Cells(DerLiR, 3)
ShtR.Cells(DerLiR, 18).FormulaR1C1 = "=RC[-1]-RC[-4]"
ShtR.Cells(DerLiR, 21).FormulaR1C1 = "=RC[-3]*0.85-RC[-2]-RC[-1]"
Set cel = .FindNext(cel)
Loop While Not cel Is Nothing And AdrDeb <> cel.Address
End If
End With
End With
End Sub