J'ai écrit un msgbox qui refuse de s'afficher vous auriez une idée pourquoi ?
Alors le reste de mon code fonctionne
C est le nom de la première occurence

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Set cAutre = Cells.Find(What:="Séquences des amorces PCR", After:=c).Offset(1)
        cAutre.Select
        If Not cAutre Is Nothing Then
        Mat(i, 2) = Sequence(cAutre, "F")
        RSmarq!mar_seq_f = Mat(i, 2)
        Else: MsgBox "Il n'y a pas de séquence F" & c
        End If
        If Not cAutre Is Nothing Then
        Mat(i, 3) = Sequence(cAutre, "R")
        RSmarq!mar_seq_r = Mat(i, 3)
        Else: MsgBox "Il n'y a pas de séquence R" & c
        End If
Merci d'avance