macro qui tourne pas rond

If Cells(i, p).Value = Cells(t, [B][COLOR=red]p[/COLOR][/B]).Value Then

If Cells(i, p).Value = Cells(t, [B][COLOR=red]2[/COLOR][/B]).Value Then

Sub Macro1()
Dim ef As Range 'décalre la variable ef (EFface)
Dim coul As Integer
 
Range("A4").CurrentRegion.Interior.ColorIndex = xlNone 'à supprimer
 
Set ef = Range("A60").CurrentRegion 'définit la plage ef
On Error Resume Next 'gestion des erreur si la plage est déja vide
Set ef = ef.Offset(0, 2).Resize(ef.Rows.Count, ef.Columns.Count - 2) 'redéfinit (redimensionne) la plage ef
ef.ClearContents 'efface le contenu de la plage ef
On Error GoTo 0 'annule la gestion des erreurs
 
coul = 3 'à supprimer
For t = 60 To 65
v = 3
n = 0 'à supprimer
For p = 2 To 12 'au lieu de 11
    For i = 5 To 45
        If Cells(i, p).Value = Cells(t, 2).Value Then
            Cells(i, p).Interior.ColorIndex = coul 'à supprimer
            n = n + 1 'à supprimer
            Sheets("Recap").Cells(t, v).Value = Cells(i - 1, p).Value
            v = v + 1
        End If
    Next i
    Next p
    MsgBox "Il y a " & n & " " & Cells(t, 2).Value 'à supprimer
    coul = coul + 1 'à supprimer
Next t
End Sub