J'ai un soucis...
Avec le premier sub j'obtiens :
Sub durance_phase_1_()
Dim cptLigne As Long
cptLigne = 1
With Worksheets("Manquants Durance")
For j = 2 To 250
If Not IsNumeric(Left(Trim(.Cells(cptLigne, 1)), 1)) Then .Rows(cptLigne).Delete
cptLigne = cptLigne - 1
End If
cptLigne = cptLigne + 1
Next j
End With
End Sub
Message de l'aide "end if sans bloc if" alors que nous avons un if not...
lorsque je mets le deuxieme sub j'obtiens :
Sub durance_phase_1_et_demi()
Dim i&, calStat&
Application.ScreenUpdating = False
calStat = Application.Calculation
Application.Calculation = xlCalculationManual
With Worksheets("Manquants Durance")
For i = .[A1].Offset(.Rows.Count - 1, 0).End(xlUp).Row To 1 Step -1
If Not IsNumeric(Left(LTrim(.Cells(i, 1)), 1))
Then .Rows(i).Delete
Next
End With
Application.Calculation = calStat
Application.ScreenUpdating = True
End Sub
Voici ce que me conseille l'aide : Attendu: <divers>
Merci à ceux qui voudront bien jeter un oeil.