Dim Ligne As Integer, n as Integer
Ligne = 25
For i = 2 To Range("B65536").End(xlUp).Row
If n = 5 Then
Exit For
ElseIf Range("B" & i).Value = var_id_client Then
Sheets("FI-CE").Range("AM" & Ligne).Value = Range("B" & i).Offset(0, 1).Value
Sheets("FI-CE").Range("AM" & Ligne + 4).Value = Range("B" & i).Offset(0, 4).Value
Sheets("FI-CE").Range("AM" & Ligne + 2).Value = Range("B" & i).Offset(0, 7).Value
Ligne = Ligne + 8
n = n + 1
End If
Next