Sub verif()
derLigne = Cells(Rows.Count, 1).End(xlUp).Row
tablo = Range("B1:D" & derLigne)
Dim tablErr()
For lig = 2 To derLigne
col = Application.Match(tablo(lig, 2), Sheets("baremes").[B1:F1])
If Sheets("baremes").Range("bar" & Left(tablo(lig, 1), 1))(col) <> tablo(lig, 3) Then
ReDim Preserve tablErr(0, x)
tablErr(0, x) = "Ligne " & lig & ": " & tablo(lig, 3) & " au lieu de: " & Sheets("baremes").Range("bar" & Left(tablo(lig, 1), 1))(col)
x = x + 1
End If
Next lig
Sheets.Add
ActiveSheet.[A1].Resize(x, 1) = Application.Transpose(tablErr)
End Sub