Bonjour,
J'ai réussi à me corriger.
Sub essai()
Feuil32.Activate
Dim MaPlgEnLig As Range, MaPlgEnCol As Range, MaCol As Range, MaLig As Range
Set MaPlgEnLig = Feuil32.Range("G1" & ":" & Cells(1, Columns.Count).End(xlToLeft).Address)
MaPlgEnLig.Select
For Each MaCol In MaPlgEnLig
MaCol.Offset(3, 0).Select
Set MaPlgEnCol = Range(ActiveCell, Cells(65536, ActiveCell.Column).End(xlUp))
MaSomme = Application.Sum(MaPlgEnCol)
For Each MaLig In MaPlgEnCol
If MaSomme = 0 Then
GoTo Suivante
ElseIf MaLig.Value <> "" Then
MaLig.Select
End If
Next MaLig
Suivante:
Next MaCol
End Sub
Désolé pour le dérangement.