Problème Macro

Sub Exemple()

Dim ligne As Integer
Dim DerniereLigne As Integer
Dim colonne As Integer

Dim Nom As String
Dim NumAuto As String
Dim NumAD As String
Dim nb As Byte

'Crée un nouvel onglet, contenant les erreurs Numéros.
'Set Worksheet = Sheets.Add(After:=Sheets(Sheets.Count))
' Worksheet.Name = "Numeros"

nb = 1
colonne = 1
DerniereLigne = Worksheets("Autocom").Range("A1").SpecialCells(xlCellTypeLastCell).Row

For ligne = 1 To DerniereLigne

Worksheets("Autocom").Cells(ligne, colonne).Font.Bold = True 'Permet de visualiser que la ligne a été balayée
NumAuto = Worksheets("Autocom").Cells(ligne, 1).Value
'Construction du numéros
NumAD = Worksheets("AD").Cells(ligne, 1).Value 'ex: 6551
NumAD = Mid(NumAD, 13, 2) + Mid(NumAD, 16, 2)

With Worksheets("AD").Range("A1:A1200")
Set AD = .Find(NumAuto, LookIn:=xlValues)
If StrComp(NumAD, NumAuto, vbTextCompare) <> 0 Then
Worksheets("Autocom").Cells(ligne, colonne).Font.Color = RGB(255, 0, 0)
'Ajouts des Erreurs sur l'onglet Correction
Worksheets("Numeros").Cells(ligne, 1).Value = Worksheets("AD").Cells(ligne, 1).Value
Worksheets("Numeros").Cells(ligne, 2).Value = Worksheets("Autocom").Cells(ligne, 1).Value

End If
End With
Next ligne


End Sub

Cliquez pour agrandir...