For col = 1 To 38
Select Case col
Case Is = 1, 2, 3, 4, 5, 8, 11, 12, 13, 14, 15, 16, 17, 21, 22, 24, 26, 27, 30, 34, 37, 38
DernièreLigne = Cells(1048576, col).End(xlUp).Row
If Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range(Cells(1, col), Cells(DernièreLigne, col)), "") > 0 Then
Cancel = True
MsgBox "vérifier colonne"
End If
End Select
Next col