Sub Bouton2_QuandClic()
Dim i&, j%, n%, msg$, dat()
dat = Array(Array(1, 4), Array("Alpha", "AL"), Array("Beta", "BE"), Array("Gamma", "GA"))
For i = 1 To UBound(dat)
With Sheets(dat(i)(0))
For j = dat(0)(0) To dat(0)(1)
If .Range("A1").Offset(0, j - 1).Value <> dat(i)(1) & Format(j, "000") Then
msg = msg & dat(i)(0) & " : " & .Range("A1").Offset(0, j - 1).Address(0, 0) & " = " & _
.Range("A1").Offset(0, j - 1).Value & " au lieu de " & dat(i)(1) & Format(j, "000") & vbLf
n = n + 1
End If
Next
End With
Next
If n = 0 Then msg = "Pas d'erreur" Else msg = n & " erreur" & IIf(n > 1, "s", "") & " :" & vbLf & vbLf & msg
MsgBox msg
End Sub