Dim ColIntrouvable As Boolean
Dim ColEtat As Integer
Public Sub NomSub()
'...
ColEtat = NumColumn("T2")
If ColIntrouvable = True Then MsgBox "Erreur sur une colonne veuillez verifier.": Exit Sub
'...
End Sub
Function NumColumn(TexteRech As String) As Byte
ColIntrouvable = False
On Error GoTo erreur
NumColumn = Range("A2:IV2").Find(TexteRech, lookat:=xlWhole).Column
Exit Function
erreur:
ColIntrouvable = True
End Function