Public Cel As Range
Public Sub VerifNum(x)
Dim Dossier As String, Fichier As String, Wb As Workbook, Ws As Worksheet
ActiveCell.Offset(, -1).Activate
Dossier = ThisWorkbook.Path & "\"
Fichier = "Suivi des commentaires factures"
If Not IsOpen(Fichier) Then Workbooks.Open Filename:=Dossier & Fichier
Set Wb = ActiveWorkbook
For Each Ws In Wb.Worksheets
If IsNumeric(Ws.Name) Then
Set Cel = Ws.Columns(1).Find(x)
If Not Cel Is Nothing Then Ws.Activate: Cells(Cel.Row, 1).Activate: Exit For
End If
Next Ws
End Sub
'si tu as besoin ajouter
'mettre
'If Not IsOpen(Fichier) Then
'devant
'Workbooks.Open Filename:=Dossier & Fichier
Function IsOpen(Classeur$) As Boolean
On Error Resume Next
IsOpen = Not Workbooks(Classeur) Is Nothing
Err.Clear
End Function