Sub sorties()
Set trouve = [A:A].Find(what:="SORTIE", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
If Not trouve Is Nothing Then
premAdresse = trouve.Address
Do
For lig = 1 To 20 'à adapter au nombre potentiellement le plus grand de lignes par tableau
If Cells(trouve.Row + 3 + lig, 1) <> "" Then
Cells(trouve.Row + 3 + lig, 5) = trouve.Offset(0, 1)
Cells(trouve.Row + 3 + lig, 6) = trouve.Offset(0, 5)
Else
Exit For
End If
Next lig
Set trouve = [A:A].FindNext(trouve)
Loop While Not trouve Is Nothing And trouve.Address <> premAdresse
End If
End Sub