Grouper ligne en fonction d'une colonne

Bonjour,

Je ne parviens pas à réaliser une macro vba pour grouper toutes les lignes qui ne sont pas vide en colonne C

Veuillez trouver ci joint mon fichier excel (2 onglets : Tableau / Résultat Attendu)

Voici le fichier

J'avais débuté ce code mais il ne fonctionne pas bien

Sub GrouperParFamille()

For Each Cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
R = Cel.Row
If Cel.Value = "" Then
derlig = Columns(3).Find("*", Cel, , xlByRows, xlNext).Row - 1
Range("A" & R & ":A" & derlig).Rows.Group
End If

Next Cel

End Sub

Merci beaucoup pour votre aide

Bonsoir John,

Voici un code qui fonctionne

Sub GrouperParFamille()
  Dim dLig As Long, pLig As Long, Lig As Long
  With Sheets("Tableau")
    dLig = .Range("C" & Rows.Count).End(xlUp).Row
    For Lig = 3 To dLig + 1
      ' Première ligne à grouper
      If pLig = 0 Then pLig = Lig
      ' Si la cellule de la colonne C est vide
      If .Range("C" & Lig) = "" Then
        ' On groupe
        Rows(pLig & ":" & Lig - 1).Group
        ' La première ligne du group suivant
        pLig = Lig + 1
      End If
    Next Lig
  End With
End Sub

@+

Merci BrunoM45 ca fonctionne !