Sub compare_dossier()
Dim dL#, i#, j#
Dim tablo1, tablo2
Dim ws As Worksheet, embrouille As Boolean
With Sheets("clients")
dL = .Range("B65000").End(xlUp).Row
For i = 2 To dL
On Error Resume Next
Set ws = Sheets(CStr(.Cells(i, 1)))
On Error GoTo 0
If Not ws Is Nothing Then
tablo1 = .Range("A" & i & ":N" & i).Value
With ws
tablo2 = .Range("A2:N2").Value
For j = 1 To UBound(tablo1, 2)
If tablo1(1, j) <> tablo2(1, j) Then
embrouille = True
Exit For
End If
Next
If embrouille Then
If MsgBox("il y a des différences d'infos pour " & ws.Name & vbCrLf & _
"Corriger les infos ?", vbQuestion + vbYesNo) = vbYes Then
.Range("A2:N2") = tablo1
End If
End If
End With
End If
Next
End With
End Sub