Type mismatch...

Bonjour,

j'ai un soucis en VBA-Excel... Il me sort "TypeMismatch".


J'ai tout essayé. Excel m'énerve!


'on va trouver la colonne qui correspond à l'usine
Dim Colonne As Integer
Colonne = 0
Dim Cellule As String

For n = 1 To 50
For i = 1 To 200
Cellule = Cells(i, n).Value
If Cells(i, n).Value = Usine Then
Colonne = n
Exit For
Exit For
End If
Next i
Next n
If Colonne = 0 Then
Exit Sub
End If




Je vous remercie d'avance =D