Sub Sous_Totaux_3()
Dim Plage1 As Range 'Plage de la condition (colonne C )
Dim Plage2 As Range 'Plage du tableau des Totaux contenant les noms
With Sheets("Avril Bis")
Set Plage1 = .Range(.Range("C3"), .Range("C3").End(xlDown))
If Plage1.Rows.Count > 1 Then
Set Plage1 = Plage1.Offset(1).Resize(Plage1.Rows.Count - 1)
Set Plage2 = Plage1(Plage1.Count).Offset(2)
'Ligne d'entête des sous-totaux
With Plage2.Resize(1, 2)
.Value = Array("Vendeur", "nbVéhicules")
.Font.Bold = True
End With
End If
'On retient la plage des noms et on la decale 1 colonne
Set Plage2 = .Range(Plage2.Offset(1), Plage2.End(xlDown)).Offset(, 1)
'On travail au départ sur la première cellule de la plage
With Plage2(1)
.Formula = "=COUNTIF(" & Plage1.Address & "," & Plage2(1).Offset(, -1).Address(False, True) & ")"
.AutoFill Destination:=Plage2
End With
End With
End Sub