Re : Affichache de ligne masqué sous condition
je vous remercie pour votre reponse mais j'ai fait une autre methode
Private Sub CommandButton1_Click()
For I = 6 To 8
If Cells(I, 8) = "Entreprise" Then
Range("A14:A20").Select
Selection.EntireRow.Hidden = False
ElseIf Cells(I, 8) = "Laboratoire de recherche" Then
Range("A21:A27").Select
Selection.EntireRow.Hidden = False
ElseIf Cells(I, 8) = "Indépendant" Then
Range("A9:A13").Select
Selection.EntireRow.Hidden = False
End If
Next I
End Sub