Recherche sur les colonnes : utilisation de cells(1, i).value bugue.

'We search for the last cell not empty.

Set Cible = DerniereCellule(ActiveSheet)
    
    If Not Cible Is Nothing Then
    C = NomCol(Cible.Column)
    Else
    MsgBox "La feuille est vide."
    End If

VIN = Application.Workbooks("***.xls").Worksheets("Navigator_Sheet").Range("H6").Value ' We get the value of the VIN code.
Set cell_searched = Range("G1:" & C & "1").Find(VIN)

If Not cell_searched Is Nothing Then
'Write your code.
Else
MsgBox "VIN code not found"
end if

Function DerniereCellule(Ws As Worksheet) As Range
'We search for the last cell of the activesheet.

    Dim NumLigne As Double, NumCol As Integer
    
    'Vérification si la feuille est totalement vide
    If Ws.UsedRange.Cells.Address = "$A$1" And _
        IsEmpty(Ws.Range("A1")) Then Exit Function
    
    With Ws
        'Identifie le numéro de ligne
        NumLigne = .Cells.Find("*", .Range("A1"), , , xlByRows, xlPrevious).Row
        'Identfie le numéro de colonne
        NumCol = .Cells.Find("*", .Range("A1"), , , xlByColumns, xlPrevious).Column
        
        Set DerniereCellule = .Cells(NumLigne, NumCol)
    End With
End Function

Function NomCol(Col As Long) As String
' This macro allows us to get the name of the column and not its index.
    If Col < 27 Then
        NomCol = Chr(Col + 64)
    Else
        NomCol = Chr(Int((Col - 0.1) / 26) + 64) & Chr(IIf((Col Mod 26) = 0, 26, (Col Mod 26)) + 64)
    End If
End Function