For i = 2 To Range("B65536").End(xlUp).Row
If Range("B" & i).Value = var_id_client Then
MsgBox Range("B" & i).Offset(0, 1).Value
MsgBox Range("B" & i).Offset(0, 4).Value
MsgBox Range("B" & i).Offset(0, 7).Value
End If
Next
Sheets("FI-CE").Range("AM33").FormulaR1C1 = var_nom_contact
' Sheets("FI-CE").Range("AM37").FormulaR1C1 = var_Num_contact_tel
' Sheets("FI-CE").Range("AM35").FormulaR1C1 = var_mail_contact
For i = 2 To Range("B65536").End(xlUp).Row
If Range("B" & i).Value = var_id_client Then
Sheets("FI-CE").Range("AM33").Value = Range("B" & i).Offset(0, 1).Value
Sheets("FI-CE").Range("AM37").Value = Range("B" & i).Offset(0, 4).Value
Sheets("FI-CE").Range("AM35").Value = Range("B" & i).Offset(0, 7).Value
End If
Next
Sheets("FI-CE").Range("AM25").FormulaR1C1 = Range("B" & i).Offset(0, 1).Value
' Sheets("FI-CE").Range("AM29").FormulaR1C1 = Range("B" & i).Offset(0, 4).Value
' Sheets("FI-CE").Range("AM27").FormulaR1C1 = Range("B" & i).Offset(0, 7).Value
' Sheets("FI-CE").Range("AM33").FormulaR1C1 =
' Sheets("FI-CE").Range("AM37").FormulaR1C1 =
' Sheets("FI-CE").Range("AM35").FormulaR1C1 =
' Sheets("FI-CE").Range("AM41").FormulaR1C1 =
' Sheets("FI-CE").Range("AM45").FormulaR1C1 =
' Sheets("FI-CE").Range("AM43").FormulaR1C1 =
' Sheets("FI-CE").Range("AM49").FormulaR1C1 =
' Sheets("FI-CE").Range("AM53").FormulaR1C1 =
' Sheets("FI-CE").Range("AM51").FormulaR1C1 =
' Sheets("FI-CE").Range("AM57").FormulaR1C1 =
' Sheets("FI-CE").Range("AM61").FormulaR1C1 =
' Sheets("FI-CE").Range("AM59").FormulaR1C1 =
Dim Ligne as integer
Ligne = 25
For i = 2 To Range("B65536").End(xlUp).Row
If 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 + 1).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 + 6
End If
Next
Dim Ligne As Integer
Ligne = 25
For i = 2 To Range("B65536").End(xlUp).Row
If 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
End If
Next
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