If Cells(40, 3) = Cells(9, 3) And Cells(41, 3) = Cells(10, 3) And Cells(42, 3) = Cells(11, 3) Then
MsgBox "OK"
Else
MsgBox " ligne Valeur >affichage< longueur " _
& Chr(10) & "40 " & vbTab & Cells(40, 3) & vbTab & ">" & Cells(40, 3).Text & "<" & vbTab & Len(Cells(40, 3)) _
& Chr(10) & "9 " & vbTab & Cells(9, 3) & vbTab & ">" & Cells(9, 3).Text & "<" & vbTab & Len(Cells(9, 3)) _
& Chr(10) & "41 " & vbTab & Cells(41, 3) & vbTab & ">" & Cells(41, 3).Text & "<" & vbTab & Len(Cells(41, 3)) _
& Chr(10) & "10 " & vbTab & Cells(10, 3) & vbTab & ">" & Cells(10, 3).Text & "<" & vbTab & Len(Cells(10, 3)) _
& Chr(10) & "42 " & vbTab & Cells(42, 3) & vbTab & ">" & Cells(42, 3).Text & "<" & vbTab & Len(Cells(42, 3)) _
& Chr(10) & "11 " & vbTab & Cells(11, 3) & vbTab & ">" & Cells(11, 3).Text & "<" & vbTab & Len(Cells(11, 3))
End If