Sub suppr()
Dim ligne
For ligne = Cells(65536, 2).End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(ligne, 2)) Then Cells(ligne, 1).EntireRow.Delete
Cells(ligne, 3) = UCase(Cells(ligne, 3))
Cells(ligne, 12) = UCase(Cells(ligne, 3))
Cells(ligne, 13) = UCase(Cells(ligne, 3))
Next
Range("A2").Select
End Sub