Problème avec code pour trouvé le nombre d'occurrences

Bonjour,

J'essais de créer un code pour détecter le nombre de colonne correspondant au texte "Sensor Reading" dans l'entête de mes colonnes situé en ligne 1, à partir de la colonne F jusqu'à la dernière colonne.

Je utiliser se nombre afin de pouvoir contrôler le nombre de graphique à faire afficher sur mes feuilles. Le nombre d'occurrence sera appelé "NbrPiezo"

Après plusieurs essais, ça ne fonctionne toujours pas! J'ai une erreur 438 sur la ligne

Rows(1).Find("Sensor Reading", Cells(1, i), xlValues).Column

Voici mon code complet:

Option Explicit
Public CollectBT As Collection
Private Tx As MSForms.TextBox

Private Sub CommandButton1_Click()

Dim DerCol As Integer, PremDercol As Integer, DerLig As Integer, NoCol As Integer, Nbre As Byte, Cptr As Byte, col As Integer, activesheets As Range
Dim i As Integer, fichier As String, nom As String, rep As String, v As Integer, NCol As Integer
Dim recherche As String, Compteur As Integer, Nbrpiezo As Integer

If TextBox1.Text = "" Then
    MsgBox "Vous devez entrer un nom de Site!", vbOKOnly + vbCritical, "ERREUR SITE!"
ElseIf TextBox2.Text = "" Then
    MsgBox "Vous devez entrer un nom de Sondage!", vbOKOnly + vbCritical, "ERREUR SONDAGE!"
Else
    
End If

Application.ScreenUpdating = False

Call mOuvrir.Choisir_fichier("en.dat")

UserForm2.Hide

With ActiveSheet
PremDercol = .Cells(2, .Cells.Columns.Count).End(xlToLeft).Column
    With .Range(Cells(1, 1), Cells(1, PremDercol))
        For i = 24 To 12 Step -1
            If Mid((Cells(1, i)), 16, 2) = "kg" Then
                Columns(i).Delete
            End If
        Next i
        For i = PremDercol To 21 Step -1
            If Mid((Cells(1, i)), 19, 7) = "Channel" Then
                Columns(i).Delete
            End If
        Next i
    End With
    
DerCol = .Cells(2, .Cells.Columns.Count).End(xlToLeft).Column
DerLig = .Range("A" & Rows.Count).End(xlUp).Row

    .Columns("A").ColumnWidth = 13
    .Columns("G:H").ColumnWidth = 10
    .Cells.VerticalAlignment = xlVAlignCenter
    .Cells.HorizontalAlignment = xlHAlignCenter
    
     For i = 2 To DerLig Step 2
        .Range(Cells(i, 1), Cells(i, DerCol)).Interior.ColorIndex = 15
    Next i

    With .Range(Cells(1, 1), Cells(DerLig, DerCol))
        .Borders.Weight = xlThin
        .Rows(1).Borders(xlEdgeBottom).LineStyle = xlDouble
        .Rows(1).RowHeight = 33
        .Rows(1).WrapText = True
        .BorderAround ColorIndex:=1, Weight:=xlMedium
    End With
   
   .Columns("E").Insert shift:=xlRight
   .Columns("E").ColumnWidth = 10
   .Range("E1").Value = "jours-mois"
    
    With .Columns("E")
        For v = 2 To DerLig
            Columns.Cells(v, 5).Value = Cells(v, 3).Value & "-" & Cells(v, 4).Value
        Next
    End With
    
    .Range("C:D").EntireColumn.Hidden = True
    
     Nbre = Application.CountIf(Rows(1), "Sensor*")
        If Nbre > 0 Then
            col = .Cells.Columns.Count
                For Cptr = 1 To Nbre
                    col = .Rows(1).Find("Sensor Temp", Cells(1, col), xlValues).Column
                    With .Cells(1, col)
                        .Interior.ColorIndex = 37
                        .ColumnWidth = 15
                    End With
                        If Cptr = 1 Then
                        .Range(Cells(1, col), Cells(DerLig, col)).Borders(xlEdgeLeft).Weight = xlMedium
                        End If
                Next
                For Cptr = 1 To Nbre
                col = .Rows(1).Find("Sensor Reading", Cells(1, col), xlValues).Column
                    With .Cells(1, col)
                        .Interior.ColorIndex = 36
                        .ColumnWidth = 20
                    End With
                Next
        End If
    
    .Range(Cells(1, 5), Cells(DerLig, 5)).Borders(xlEdgeRight).Weight = xlMedium
    .Range(Cells(1, 2), Cells(DerLig, 2)).Borders(xlEdgeLeft).Weight = xlMedium
    .Range(Cells(1, 10), Cells(DerLig, 10)).Borders(xlEdgeRight).Weight = xlMedium
    .Range(Cells(1, 8), Cells(DerLig, 8)).Borders(xlEdgeRight).Weight = xlMedium
    .Columns("F").ColumnWidth = 10
End With

With Sheets(1).Range(Cells(1, 6), Cells(1, DerCol))
    For i = 6 To DerCol
        Rows(1).Find("Sensor Reading", Cells(1, i), xlValues).Column
        Compteur = Compteur + 1
    Next i
Nbrpiezo = Compteur
End With

Sheets.Add.Move after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Graphique"
Call zone_texte
 
If Nbrpiezo <= 3 Then
     Call graphique
     Exit Sub
End If

    Sheets.Add.Move after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Graphique2"
    Call zone_texte

If Nbrpiezo <= 6 Then
     Call graphique
     Exit Sub
End If

    Sheets.Add.Move after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Graphique3"
    Call zone_texte
    Call graphique


'Sheets(1).Select


Application.Visible = True

            With ActiveWorkbook
                Application.DisplayAlerts = False
                If MsgBox("Voulez-vous sauvegarder ce fichier en .xlsx?", vbOKCancel + vbQuestion, "SAUVEGARDE") = vbCancel Then
                        Application.ThisWorkbook.Saved = True
                        ActiveWorkbook.Close
                        Exit Sub
                    Else
                        fichier = UserForm2.TextBox1
                        nom = fichier & "_" & Format(Date, "yyyy-mm-dd") & "_" & ".xls"
                        .SaveAs ActiveWorkbook.Path & "\" & nom, FileFormat:=xlNormal, CreateBackup:=False
                        rep = MsgBox("Votre fichier est sauvegardée sous le nom : " & nom, vbOKOnly + vbInformation, "Copie sauvegarde classeur")
                    End If
                Application.DisplayAlerts = True
            End With

Application.ThisWorkbook.Saved = True
Application.ScreenUpdating = True
'ActiveWorkbook.Close
'Application.Quit


End Sub

Merci pour votre aide!