Sub test()
Range("AY7").Select
Dim a
Dim L
a = a + 1
L = "Logistique" & a
Set plage = ThisWorkbook.Sheets("Feuil2").Columns("AQ:AQ")
Set re = plage.Find(L, LookIn:=xlValues, lookat:=xlPart, MatchCase:=True)
If Not re Is Nothing Then
Set fr = re
Do
ThisWorkbook.Sheets("Feuil2").Range(Cells(re.Row, 40), Cells(re.Row, 48)) = ThisWorkbook.Sheets("Feuil2").Range(Cells(re.Row, 50), Cells(re.Row, 58))
Set re = plage.FindNext(re)
Loop Until re Is Nothing Or re = fr
a = 90
End If
End Sub