Bonjour,

auriez-vous d'où vient mon erreur svp ? J'ai "Qualificateur incorrect" sur la première ligne Sub mais l'erreur vient de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ws.Name.Range("B5").Value = "Calculs"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Refresh_Data()
    Dim ws As Worksheet
    For Each ws In Worksheets
      If InStr(ws.Name, "Equipe") Then
        MsgBox "ok"
        MsgBox ws.Name
        ws.Name.Range("B5").Value = "Calculs"
      End If
    Next
 
End Sub
De plus, mon bouton arrête de fonctionner dès que j'ai l'erreur "Qualificateur incorrect".

Auriez-vous une idée comment remédier ces problèmes svp ? Si je mets ça à la place ça fonctionne bien pourtant...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.Range("B5").Value = "Calculs"

EDIT JE viens de me rendre compte que j'ai oublié Sheets() youpi