Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim r1 As Range 'déclare la variable r1 (Recherche 1)
Dim r2 As Range 'déclare la variable r2 (Recherche 2)
Dim pa1 As String 'déclare la variable pa1 (Première Adresse 1)
Dim pa2 As String 'déclare la variable pa2 (Première Adresse 2)
Dim x1 As Integer 'déclare la variable x1 (incrément 1)
Dim x2 As Integer 'déclare la variable x2 (incrément 2)
Set pl = Range("B8:B" & Range("B65536").End(xlUp).Row) 'définit la plage pl
Set r1 = pl.Find("DG", , xlValues, xlPart) 'définit la recherche r1
If Not r1 Is Nothing Then 'condition : si il existe au moins une occurrence de "DG" dans la plage pl
pa1 = r1.Address 'définit la première Adresse 1
Do 'éxécute
x1 = x1 + 1 'incrémente la variable x1
Set r1 = pl.FindNext(r1) 'redéfinit la recherche (recherche Suivant)
'boucle tant qu'il existe des occurrences ailleurs qu'en pa1
Loop While Not r1 Is Nothing And r1.Address <> pa1
End If 'fin de la condition
Set r2 = pl.Find("CA", , xlValues, xlPart) 'idem
If Not r2 Is Nothing Then
pa2 = r2.Address
Do
x2 = x2 + 1
Set r2 = pl.FindNext(r2)
Loop While Not r2 Is Nothing And r2.Address <> pa2
End If
Range("D9").Value = x1 'place le nombre d'occurrences de DG en D9
Range("H9").Value = x2 'place le nombre d'occurrences de CA en h9
End Sub