Sub razgeneral()
'
' razgeneral macro
' Macro enregistrée le 18/07/2008 par Mathieu
'
Dim col As String
Dim lig As Long
Dim i As Integer
Validation = _
MsgBox(" Voulez-vous mettre à vide l'ensemble du programme ? " _
& vbLf & Poste, vbYesNo)
If Validation = vbNo Then
Sheets(1).Select: Range("A1").Select
Exit Sub
Else
tablo = _
Split("DONNEES SITUATIONS/DONNEES AVENANTS/MARCHE","/")
For i = 0 To 2
With Sheets(tablo(i))
col = Split(.[IV3].End(xlToLeft).Address, "$")(1)
lig = .[G65536].End(xlUp).Row
.Range("G3:" & col & lig).Cells.SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
Next
End If
End Sub