Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C6:GW11")) Is Nothing Then Exit Sub
Dim macolonne As Range
Dim col As Long
Set macolonne = Range(Cells(6, Target.Column), Cells(11, Target.Column))
For col = 0 To Target.Columns.Count - 1
If Application.WorksheetFunction.CountIf(macolonne, 21) + Application.WorksheetFunction.CountIf(macolonne, 10) >= 2 Or _
Application.WorksheetFunction.CountIf(macolonne, "fp ") + Application.WorksheetFunction.CountIf(macolonne, 10) >= 2 Then
MsgBox "attention colonne " & macolonne.Address
End If
Set macolonne = macolonne.Offset(0, 1)
Next col
End Sub