Sub Nelly14()
Dim Derlig As Integer, Tab1, i As Integer, MonTexte As String
Derlig = Range("A" & Rows.Count).End(xlUp).Row
Tab1 = Range("A3:G" & Derlig)
For i = LBound(Tab1) To UBound(Tab1)
If Tab1(i, 2) <> "" Xor Tab1(i, 4) <> "" Then MonTexte = MonTexte & "différence col 2 col 4 en ligne : " & i + 2 & Chr(10)
If Left(Tab1(i, 5), 2) <> "SG" Then MonTexte = MonTexte & "différence SG col 5 en ligne : " & i + 2 & Chr(10)
Next
MsgBox MonTexte
End Sub