Sub SupprCol()
Dim i As Long
For i = Range("C1").CurrentRegion.Columns.Count To 1 Step -1
If Application.CountA(Range("C1").CurrentRegion.Cells(1, i).EntireColumn) = 1 Then
Range("C1").CurrentRegion.Cells(1, i).EntireColumn.Delete
End If
Next i
End Sub