Sub test()
For i = 5 To Range("c" & Rows.Count).End(xlUp).Row
If Cells(i, 3).Value = "" Then
Cells(i, 3).Value = Application.Proper(Cells(i, 2).Value)
Select Case Cells(i, 3).Value
Case "Brandt"
derlG1 = Sheets("GROUPE").Range("B" & Rows.Count).End(xlUp).Row
x = derlG1: y = 2
Case "Electrolux"
derlG2 = Sheets("GROUPE").Range("C" & Rows.Count).End(xlUp).Row
x = derlG2: y = 3
'pour ajouter des groupes mettre plus de case
End Select
For nl = 3 To x
derl = Range("B" & Rows.Count).End(xlUp).Row + 1
Cells(derl, 2).Value = Cells(i, 2).Value
Cells(derl, 3).Value = Sheets("GROUPE").Cells(nl, y).Value
Cells(derl, 4).Value = Cells(i, 4).Value
Cells(derl, 5).Value = Cells(i, 5).Value
Next
End If
Next
End Sub