bonsoir,
si A est un string ? (la 2ième partie, je ne suis pas sûr si c'est bien)
Sub ResetChantier()
Dim LastLine As Long, A As String, b As Boolean
Do
b = False
A = Application.InputBox("Quelle semaine voulez-vous supprimer ?" & vbLf & "0 ou annuler = fin de la macro", "Semaine à supprimer", "Entrer une semaine à supprimer", Type:=2)
Select Case A
Case 1 To 52: A = Fix(A): b = True 'arrondir integer !
Case 0, "Entrer une semaine à supprimer", False: Exit Sub
End Select
If Not b Then MsgBox "Veuillez entrer un nombre entre 1 et 52", vbExclamation
Loop While Not b
With Sheets("2022")
LastLine = .ListObjects(1).ListRows.Count
For i = 10 To (LastLine - 5) Step 2
Cells(i + 1, A + 6).Resize(5, 1).ClearContents
Next
MsgBox ("La semaine " & A & " a bien été supprimée")
End With
End Sub