Countif avec "variable"

Bonjour à tous et merci d'avance à la lecture de ce post

je ne suis pas du tout expert en vba mais je me suis lancé dans un assez gros projet

je pense que c'est comme ça qu'on apprend personnellement

néanmoins je suis face à un problème que je n'arrive pas à résoudre

je m'explique :

j'aimerais récupérer une information qui se trouve dans un planning

exemple je voudrais récupérer une valeur « IT IN » du premier janvier 2020 jusqu à aujourd'hui

pour savoir combien de fois chaque agent a roulé

mais comme la valeur change tous les jours (la date)

j'ai eu l'idée en tant que novice le travailler avec les ActiveCell.Offset(columnOffset:=760).Activate

ligne2 = ActiveCell.Address

et de meme avec ligne 1

J'aimerais faire un Countif pas avec un .range Mais plutôt avec mes 2 valeurs

(ligne1 : ligne2)

J'ai déjà passé beaucoup de temps dessus C'est pourquoi je me permets de poster ce post

erreur : i = Application.WorksheetFunction.CountIf(Range("ligne1:ligne2"), "=IT IN")

Sub compteurIT()
Dim i As Integer

        Windows("test macro.xlsm").Activate
        Sheets("CompteurIT").Select
        Range("A2").Select
        Dim li As Long, lifin As Long, plage As Range, valeur
    lifin = Range("A" & Rows.Count).End(xlUp).Row
        For li = 2 To lifin
        valeur = Range("A" & li).Value
        Matricule = Selection.Value

        Windows("FluxPlan 2020 - Copie.xlsm").Activate
        Sheets("Planning").Select
        Cells.Find(What:=Matricule, After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

        'recuper?e NO ligne
        ligne = ActiveCell.Row

Windows("FluxPlan 2020 - Copie.xlsm").Activate
Sheets("Planning").Select
ActiveCell.Offset(columnOffset:=19).Activate
ligne1 = ActiveCell.Address
ActiveCell.Offset(columnOffset:=760).Activate
ligne2 = ActiveCell.Address

Dim i As Integer
i = Application.WorksheetFunction.CountIf(Range("ligne1:ligne2"), "=IT IN")

MsgBox ("La bonne r?ponse est" & " " & i)

Next li

End Sub

Demoltron

bonsoir,

essaie ainsi

i = Application.WorksheetFunction.CountIf(Range(ligne1 & ":" & ligne2), "=IT IN")

Mes chers amis,

vous êtes vraiment les meilleurs et vraiment je tiens à vous remercier !!

car quand tu passe une journée à chercher et que tu reçois une réponse qui fonctionne ça fait vraiment plaisir !!!

MERCI !!

Demoltron